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This  report  was  prepared  by  SMSgt  Edward  E.  Stapleton  and  1st  Lieu¬ 
tenant  Michael  R.  Mantz  of  the  Energy  Research  Office,  Engineering  and 
Services  Laboratory,  Air  Force  Engineering  and  services  Center.  The 
development  was  conducted  by  SMSgt  Stapleton  and  1st  Lt  Mantz  as  part  of 
a  larger  Solar  Radiation  Measuring  effort. 
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SECTION  I 


INTRODUCTION 


1.0  BACKGROUND 

This  interim  technical  report  addresses  the  Solar  Insolation  Record¬ 
ing  System  (SIRS) ,  a  piece  of  hardware  developed  as  a  part  of  a  larqer 
effort  on  Solar  Radiation  Measuring.  This  project  was  undertaken  to 
provide  (1)  an  adequate  data  base  for  large  scale  design  of  solar  enerqy 
collectors,  (2)  to  provide  correlation  between  local  measurements  of  solar 
radiation  and  regional  measurements  being  taken  by  National  Oceanic  and 
Atmospheric  Administration  (NOAA)  and  (3)  to  determine  the  applicability 
of  this  equipment  to  current  or  future  Air  Weather  Services  procedures. 

The  hardware/software  development  began  in  January  1978  and  was  completed 
in  April  1978. 

The  system  was  initially  tested  from  June  1978  to  August  1978.  It 
was  installed  at  Det  9,  12th  Weather  Squadron,  3rd  Weather  wing,  Tyndall 
AFB,  Florida  on  11  November  1978  for  operational  testing.  Development  was 
initiated  by  the  Air  Force  Civil  Engineering  Center  and  was  completed  by 
the  Civil  and  Environmental  Engineering  Development  Office  (CEE DO) .  Since 
this  effort  was  completed,  CEEDO  has  become  the  Directorate  of  Research 
and  Development  of  the  Air  Force  Engineering  and  Services  Center  (AFESC) . 

2.0  PURPOSE  OF  MANUAL 

This  manual  provides  the  user  with  the  installation  procedures , 
theory  of  operation,  and  maintenance  procedures  necessary  to  install, 
operate,  calibrate,  maintain  and  understand  the  SIRS,  developed  and  con¬ 
structed  by  members  of  the  Energy  Research  Office  of  the  Air  Force  Enqineer 
ing  and  Services  Laboratory  (Figure  1) .  Schematics  of  SIRS  components  are 
presented  in  Appendix  A, 


Figure  1.  Solar  Insolation  Recording  System 
(Less  Pyranometer) 
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TABLE  1.  OPERATION  OF  SOLAR  INSOLATION 
RECORDING  SYSTEM 

Start  Up: 

1.  Turn  on  power. 

2.  Set  record  interval  (1,  10,  or  60  minutes). 

3.  Set  "record"  switch  down. 

4.  Set  "date/time"  switch  to  time. 

5.  Set  time: 

Depress  "set"  switch  while  incrementing  display  using 

switches  under  individual  digits  (24-hour  time) . 

6.  Set  date/time  switch  to  date. 

7.  Set  Julian  date  as  in  step  5  above. 

(8235  =  1978  235th  day) 

8.  Install  cassette. 

9.  Depress  load  forward  until  leader  is  run  off. 

10.  Depress  bar  on  top  of  recorder  so  head  contacts  tape. 

11.  Set  "record"  switch  up. 

Changing  Tapes: 

1.  Set  record  switch  down. 

2.  Depress  release  button  on  recorder. 

3 .  Remove  tape . 

4.  Install  new  tape. 

5.  Depress  load  forward  until  leader  is  run  off. 

6.  Depress  bar  on  top  of  recorder  so  head  contacts  tape. 

7.  Set  record  switch  up. 

Power  Failure /Reset : 

Set  time  and  date  as  in  A5,  A6,  and  A7. 


SECTION  IV 


CALIBRATION 

The  end  Instrument  should  be  calibrated  once  a  year  or  prior  io  bet  no 
installed  if  more  than  a  year  ha*  elapsed  einoe  the  last  calibration. 

The  pyrauometer  (not  the  recorder)  should  be  sent  tot 

Solar  Radiation  Facility 

National  Oceanic  and  Atmospheric  Adm 

Environmental  Research  Laboratories 

Boulder  CO  80302 

ATTNi  Nr  Edwin  C.  Flowers 

calibration  takes  approximately  three  weeks. 

The  integrator  can  be  calibrated  usinq  a  10* millivolt  source  to 
adjust  the  gain  and  offset. 

_  c.  ___  A 

With  a  NOAA  calibration  of  8.83  x  10  volts.Vatt-meter  ,  the 
counter  is  adjusted  to  produce  359.2  count* /'hour  with  a  10  mV  input  usinq 
the  formula i 


...  ..  8.83  x  10  \  3.152  kM1 

Sensitivity  - — 2 - 3 -  x - 5 — 

W/m  Btu'ft*  -  hour 

«  35.42  Btu/ft2-hour.AttV 
10  mV  -  359.2  Btu/ft “ /hour 
where  the  derived  constant  l*  8.83  x  10  P  V  3vm'  and 
1  Btu/ft 2 -hour  -  3.152481  W M* 
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SECTION  V 


MAINTENANCE 

pyranometers  in  continuous  operation  should  be  inspected,  ideally,  at 
least  once  per  day.  At  these  inspections,  the  (outer)  hemisphere  should 
be  wiped  clean  and  dry  with  a  lint-free  soft  cloth.  In  desert  or  arid 
regions,  the  hemisphere  should  be  cleaned  very  gently  in  order  to  prevent 
scratching  of  the  surface.  Such  abrasive  action  can  alter  appreciably  the 
original  transmission  properties  of  the  material  and,  hence,  the  radi¬ 
ometer  calibration.  If  frozen  snow,  glazed  ice,  hoar  frost  or  rime  is 
present,  an  attempt  should  be  made  to  remove,  at  least  temporarily,  the 
deposit  carefully  with  warmed  cloths.  In  the  polar  regions,  it  will  be 
necessary  to  experiment  to  discover  the  best  method  of  keepinq  pyrano¬ 
meters  frost  free.  It  has  been  found  that  warm  cloths  (heated  inside  the 
recorder  hut  and  held  against  the  body  while  travelling  between  hut  and 
instruments)  are  sometimes  useful.  Under  some  conditions,  it  is  impos¬ 
sible  to  keep  frost  off  the  instruments  for  any  lenqth  of  time;  in  such 
instances,  attempts  should  be  made  to  remove  frost  at  convenient  times 
during  the  day  when  the  sun  is  shining. 

Should  the  internal  surface  of  the  (outer)  hemisphere  become  coated 
with  moisture,  it  can  be  cleaned  by  careful  removal  on  a  dry  day,  allowinq 
the  air  to  evaporate  the  moisture  and  then  firmly  resecuring  the  hemi¬ 
sphere.  The  inside  of  the  hemisphere  should  not  be  wiped  unless  smears 
are  visible.  Precautions  should  be  taken  to  avoid  scratching  the  under¬ 
surface  of  the  collar  carrying  this  hemisphere.  The  external  surface  of 
the  inner  hemisphere  can  also  be  cleaned,  if  necessary,  when  the  outer  one 
is  removed,  Should  moisture  be  deposited  on  the  inside  of  the  small 
hemisphere,  it  can  similarly  be  removed.  However,  extreme  care  must  be 
exercised  since  the  thermopile  element  is  now  unprotected  and  could  be 
seriously  damaged. 

Occasionally,  the  desiccator  installed  in  the  pyranometer  case  should 
be  inspected.  Whenever  the  silica  gel  drying  aqent  is  pinkish  or  white  in 
color,  it  should  bo  replaced.  (Silica  gel  can  be  rejuvenated  by  dryinq 
in  an  oven  at  about-  III  C  for  a  few  hours,  until  the  oriqinal  dark  blue 
color  reappears) . 

The  circular  spirit  level  of  the  pyranometer  should  be  inspected  at 
regular  intervals. 

Other  than  verification  of  proper  operation,  no  preventive  mainte¬ 
nance  is  required  for  the  recording  equipment. 
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SECTION  VI 


SYSTEM  OVERVIEW 

The  instrumentation  system  consists  of  a  pyranometer,  an  integrator, 
a  single-board  microcomputer,  a  digital  cassette  recorder,  and  a  front 
panel  which  consists  of  a  four-digit  display  and  input  switches  (Figure  6) . 


SOLAR  INSOlAHON  Hkf.OHDiNO  SVSTtM 
Block  diagram 


Figure  6.  SIRS  Block  Diagram 
1.0  HARDWARE  OVERVIEW 

The  pyranometer  is  an  Eppley  Laboratory  Precision  Spectral  Pyra- 
nameter,  Model  PSP.  The  output  of  the  pyranometer  thermopile  is  fed 
directly  to  the  input  of  an  Eppley  Laboratory  Electronic  Integrator,  Model 
411,  where  the  low  level  analog  signal  from  the  pyranometer  is  amplified 
and  converted  into  a  pulse-rate  output  proportional  to  the  input  signal. 
This  output  pulse  train  is  counted  and  totalised  to  produce  the  integral 
of  the  input  signal.  The  count  is  displayed  on  an  electronic  digital 
counter  which  counts  in  binary  coded  decimal  (BCD) .  The  BCD  from  the 
display  is  also  paralleled  to  connector  P102  at  the  rear  of  the  inte¬ 
grator,  along  with  the  interval  selection  switch  and  integrator  reset. 

The  microcomputer  is  an  Intel  Single  Board  Computer,  SBC  80/10,  with 
an  Intel  SBC  630  power  supply.  The  SBC  has  an  8080  CPU,  system  clock,  IK 
by  8  bit  words  of  read/write  memory  (RAM) ,  provision  for  up  to  4K  by  8 
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2.0  SOFTWARE  OVERVIEW 


After  power-up,  the  program  initializes  the  I/O  and  selected  memory 
locations  and  then  enters  the  main  loop.  The  main  loop  simply  calls  three 
subroutines,  checks  the  position  of  the  date/time  switch,  displays  either 
the  date  or  time,  and  then  jumps  to  the  beginning  of  the  main  loop. 

The  first  routine,  called  STBYCK ,  senses  the  record/standby  switch 
position  and  sends  a  file  gap  to  the  recorder  on  a  transition  from 
"stand-by"  to  "run."  This  in  turn  resets  the  recorder  word  counter. 

The  next  routine,  RCDTM,  checks  the  time  and  at  seconds  =  00  stores 
the  integrator  output,  resets  the  integrator,  and  then  records  the  date, 
time,  data,  and  interval. 

SWCHK  scans  the  front  panel  switches.  If  a  switch  is  depressed, 

SWCHK  increments  the  appropriate  counter.  If  no  switch  is  depressed,  the 
routine  is  exited. 

TIMIT  is  an  interrupt-driven,  real-time  software  clock.  An  interrupt 
is  generated  every  sixtieth  of  a  second  by  a  hardware,  real-time  clock  genera¬ 
tor.  These  interrupts  temporarily  stop  the  execution  of  the  main  program 
loop.  TIMIT  updates  the  time  and  date  counter  and  then  returns  control 
to  the  main  programs. 
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SECTION  VII 


THEORY  OF  OPERATION 


1.0  SYSTEM  INITIALIZATION 

System  power  is  applied  through  the  "on-off"  switch  on  the  integra¬ 
tor.  This  causes  a  power-on  reset  sequence  in  the  microprocessor,  which 
immediately  jumps  to  PROM  memory  location  50H  where  initialization  is 
started.  To  initialize  the  I/O  ports,  (see  Appendix  B) ,  an  initialization 
word  is  sent  to  the  appropriate  control  registers.  Group  B  I/O  ports  auto¬ 
matically  come  up  with  all  ports  set  for  "INPOT . "  Group  A  I/O  ports  are  set 
so  port  1  is  "INPUT"  and  ports  2  and  3  are  "OUTPUT."  Memory  locations  for 
time,  date,  and  interval  are  initialized  to  99  (See  Appendix  C.) 

An  integrator  reset  and  a  recorder  file  gap  command  are  also 
generated  at  this  time.  This  is  accomplished  by  strobing  bits  5  and  6  of 
port  2  low,  then  high.  All  output  ports  are  active  low.  The  integrator 
requires  an  active  low  for  reset;  however,  the  recorder  requires  active 
high  for  all  inputs,  control  and  data.  The  recorder  also  requires  a  +12 
volt  logic  level.  Since  the  port  output  is  only  +5  volts,  an  inverting 
buffer  is  used  to  drive  all  recorder  inputs;  the  output  of  the  buffer  is 
active  high  at  +12  volts. 

2.0  RECORD/STANDBY  SWITCH 

After  initialization,  the  first  subroutine  called  STBYCK  checks  the 
setting  of  the  record/standby  switch,  SW7,  (all  front  panel  switches  are 
debounced  prior  to  being  applied  to  a  port) .  The  output  of  the  debouncer 
for  SW7  (J102-S)  is  applied  to  port  1  bit  6  (JlA-18) ,  where  it  is  checked 
for  'record'  or  'stby.'  If  'stby,'  a  flag  is  set  and  the  subroutine  is 
exited.  The  first  time  this  subroutine  is  called  after  SW7  is  put  into 
the  "record"  mode,  a  check  is  made  of  the  flag.  If  set,  a  file  gap  is 
generated  and  the  flag  reset,  which  insures  only  one  file  gap  will  be 
generated  for  each  transition  of  the  switch  from  standby  to  record.  This 
allows  tapes  to  be  changed  and  the  recorder  word  counter  to  be  reset  with¬ 
out  interfering  in  any  way  with  the  other  operations.  When  SW7  is  in  the 
standby  position  it  also  holds  off  the  recording  process  in  the  subroutine 
RECDAT. 

3.0  TIME/DATE  SET  SWITCHES 

SW5  (run/set)  is  a  mcmentary-on  switch  that  must  be  held  down  while 
incrementing  the  date  or  time.  It  appears  at  port  1  bit  9  (J1A-21) ,  and 
is  sensed  in  SWCHK.  After  the  program  determines  that  SW5  is  in  the  "set" 
position  it  checks  SW6,  port  1  bit  1  (JlA-22)  for  date  or  time  (date  - 
active  high,  time  "  low),  if  SW6  is  in  the  date  position,  first  the  date 
will  be  displayed  and  then  the  four  switches  (SW  1  through  SW  4)  will  be 
scanned.  The  memory  location  for  the  digit  above  a  switch  will  be  incre¬ 
mented  each  time  that  a  switch  is  depressed  and  the  new  number  is 
displayed. 
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The  diagram  below  depicts  the  relationship  of  SWl  through  SW4  to 
the  display,  input  port,  and  SBC  connector  JlA. 


Switch 

Display  Diqit 

Port  1 

SBC 

Input 

1 

1 

Bit  2 

dlA 

23 

2 

Bit  3 

JlA 

24 

3 

3 

Bit  4 

JlA 

20 

4 

4 

Bit  5 

JlA 

19 

If  SW6  is  in  the  time  position  the  memory  locations  for  time 
will  be  incremented  in  the  same  manner  as  the  date,  above. 

4.0  T IMF. /DATE  DISPLAY 

The  data  inputs  of  the  individual  digits  of  the  display  are  wired  in 
parallel.  After  data  are  latched  up  at  the  output  of  port  3,  the  indi¬ 
vidual  display  digit  selected  for  displaying  that  data  is  strobed  ami  the 
data  latched  into  the  digits  memory  where  they  are  retained.  The  lower  four 
bits  of  port  3  are  used  for  both  the  display  and  the  eight  bit  word  sent 
to  the  recorder.  The  "digit  latch"  and  "record"  strobes  determine  which 
of  these  responds  to,  or  accepts,  the  data  for  input.  Port  2  bits  9  through 
(JlA-4  through  jlA-1)  make  up  the  display  digit  latch  (strobe)  port;  outputs 
are  normally  held  hiqh  and  strobed  low  when  loading  the  display. 

5.0  DIGITAL  CASSETTE  RECORDER  INTERFACE 

The  data  output  from  the  integrator  (Pl02  pins  1-20)  are  an  active 
hiqh,  six  diqit,  BCD  number  in  the  format  1-2-4-8,  10-20-40-80,  etc.  0102 
connects  directly  to  J2A,  (group  B,  ports  4,  5,  and  6).  Of  the  four  upper 
bits  of  port  (S  that  remained,  bits  4,  5,  and  6  are  used  to  sense  the 
position  of  the  interval  switch  on  the  integrator.  P102  pin  22  is 
qrovinded  when  an  interval  rate  of  1-minute  is  selected  (active  low)  and 
is  routed  to  J2A,  pin  14  (bit  4,  port  6).  When  "seconds  *  99"  (once  each 
minute) ,  the  internal  switch  is  scanned;  and  if  interval  equals  1  minute, 
the  data  from  the  integrator  are  sensed  and  stored  in  memory.  The  integra¬ 
tor  then  is  reset  and  counting  is  begun  on  the  next  cycle  while  the  date, 
time  data,  and  interval  are  recorded. 

The  recording  process  consists  of  accessing  the  memory  location 
containing  the  required  data,  i.e.,  date,  and  outputing  it  to  the  recorder 
with  a  strobe  to  start  recording.  The  recorder  immediately  returns  a 
"recorder  busy"  and  holds  it  high  until  the  data  have  been  converted  from 
parallel  to  serial  and  have  been  put  on  tape.  This  "busy  bit"  is  monitored 
until  it  returns  low,  at.  which  time  new  data  are  sent  to  the  recorder. 

This  continues  until  all  the  data  are  recorded,  after  which  the  program 
returns  to  the  main  loop  until  the  next  record  time. 


Data  to  the  recorder  are  latched  up  at  JlA  9-16  (port  3  bits  ? 
through  7) .  Prom  there  it  is  converted  to  a  12-volt  level  before  being 
applied  to  the  recorder  input.  JlA-6  (port  2,  bit  5)  is  the  output  for 
the  record  strobe,  and  it,  also,  is  amplified  prior  to  being  sent  to  the 
recorder. 

The  "busy-bit"  appears  at  recorder  I/O  plug,  PlA-F,  and  is  changed 
from  active  12  VDC  to  active  5  VDC  before  being  applied  to  JlA-17 
(port  1  bit  7) . 

6.0  REAL  TINE  CLOCK 

Thf.  main  program  is  interrupted  every  sixtieth  of  a  second  by  the  output 
of  the  interrupt  generator,  which  causes  all  processing  of  the  main  loop 
to  be  temporarily  suspended  while  the  real  time  clock  is  incremented  by 
software  in  the  subroutine  TXMIT. 

The  interrupt  generator  uses  the  5  VAC  from  the  power  supply  to  lock 
the  timing  to  the  line  frequency.  The  60-Hei.tz  input  is  clipped  and 
applied  to  a  7413  Schmitt  trigger  for  shaping  before  driving  a  74121 
monostable  multivibrator.  The  "not  Q"  output  is  used  to  drive  the  SBC 
interrupt  input  to  the  processor  (JlA-25) .  The  pulse  width  of  the  one 
shot  was  selected  to  be  greater  than  the  longest  instruction  execution 
time  of  the  processor  and  less  than  the  time  it  takes  to  reach  the  inter¬ 
rupt  enable  instruction  within  TIMIT.  This  was  to  prevent  the  processor 
from  being  interrupted  more  than  once  by  the  same  pulse. 

7.0  FLOWCHART  AND  SOURCE  SORTWARE 

Pertinent  flowcharts  and  source  software  are  presented  in  Appendices 
D  and  E,  respectively. 
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SCHEMATICS  OP  SIRS  COMPONENTS 
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APPENDIX  B 


PORT  NAME 
Port  1 

Group  1,  Port  A 
Mode  9  Input 


Port  2 

Group  l,  port  b 
Mode  9  Output 


Port  .1 

Group  1,  Port  0 
Mode  9  Output 


Port  4 

Group  2,  Port  A 
Mode  9  CHitput 


IAS  SUMMARY 

ADDRESS  BIT 

0P4H  9 

1 

2 

.1 

4 

5 

« 

7 


(»E5H  9 

1 

2 

1 

4 

A 

G 

7 

(JfcBH  0 

1 
2 

3 

4 

a 

e 

7 

flfcRH  9 

\ 

2 

.1 

4 

5 
B 


\  V  FV'Nv'TtON 

Time  ,/D*'  e  switch 

Run /set  Switch 
MS  Diait  Switch 
2nd  MS  Diolt  Switch 
2nd  LS  Piuit  Switch 
l*S  Diait  sw  i  tch 
Record/st andby  Switch 
Recorder  statue  Pit 
(Ruey  Bit' 

MS  Diait  l.etch 

2nd  MS  Didit  Latch 
2nd  LS  Didit.  Latch 
LS  Didit  Latch 
Not  Deed 
Pile  Gap  Command 
Inteorator  Reaet 
Record  Command 

Didit  Data  9  'Recorder 
Data  9 

Didit  Data  1  'Recorder 
Data  1 

Didit  Data  2  'Recorder 
Data  2 

Dioit.  Data  3 /Recorder 
Data  3 

Recorder  Data  4 
Recorder  Data  A 
Recorder  Data  <s 
Recorder  Pat  a  7 

_ Integrator 

tnteorator  Bit  i 

Inteorator  Bit  2 
Inteoratov  Bit  4 
tntearator  Bit  B 
Inteorator  Bit  10 
Integrator  Bit  20 
Tnteorator  Bit  40 
Integrator  Bit  80 
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APPENDIX  B  continued 


PORT  NAME 


ADDRESS  BIT 


I/O  FUNCTION 


Port  5 

JIE9H 

9 

- 

Integrator 

Bit 

100 

Group  2,  Port  B 

1 

- 

Integrator 

Bit 

200 

Mode  9  Input 

2 

- 

Integrator 

Bit 

400 

3 

- 

Integrator 

Bit 

BOO 

4 

- 

Integrator 

Bit 

IK 

5 

- 

Integrator 

Bit 

2K 

6 

- 

Integrator 

Bit 

4K 

7 

— 

Integrator 

Bit 

8K 

Port  6 

0EAH 

9 

- 

Integrator 

Bit 

10K 

Group  2,  port  C 

1 

- 

Integrator 

Bit 

20K 

Mode  9  Input 

2 

- 

Integrator 

Bit 

40K 

3 

- 

Integrator 

Bit 

80K 

4 

- 

1  minute 

5 

- 

10  minutes 

6 

- 

60  minutes 

7 

- 

Not  Used 

appendix  c 


MEMORY  MAP 


ADDRESS  (HEX) 


location  name 


3C00 

3C01 

3C02 

3C03 

3C04 

3C05 

3C06 

3C07 

3C08 

3C09 

3COA 

3COB 

3COC 


TIMER 

SEC 

MIN  OR  TIME 
HRS 

LS  DATE  OR  DATE 

MSDATE 

LSDATA 

DATA 

MSDATA 

INTVL  (Interval) 

Not  Used 
Not  Used 

STBYFL  (Standby  Flag) 
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FLOWCHARTS 
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ISIS-11  OBJECT  LOCATE*  VI  •  INVOKED  BV 

-LOCATE  FI  SGUK.UK  COOE(NW)  NAP  PRINK  Fl  SOLNAP  1ST)  SVM0L5  CQUNfid) 
sm  THBlI  OF  NOME  SOUK 


VfUI  TYPE  SVAML 

VALUE  TYPE 

NOD 

1NIT 

3COM  SNA 

GATE 

3CMNSNA 

MW  SV«I 

PORT* 

3CMN  SNA 

MW  SNA 

WIN 

MTSN  SNA 

IDO 

KOTA 

3CW  SNA 

IMTVL 

3CMN  SNA 

3CMN  SNA 

SEC 

MA3N  SNA 

MW  S*1 

KOTA 

MBFA  SNA 

NO 

STWOC 

ft'CM  SNA 

P0RT1 

MES4  SNA 

ufiSN  SNA 

SETFLQ 

MESA  SNA 

MW  SNA 

STM 

MO 

SAMOA! 

3CNM  SNA 

DATA 

ME3N  SNA 

MESH  SNA 

ports 

MEAN  SNA 

MO 

TIAIT 

3ca»  SNA 

m 

3COM  SNA 

3CWSNA 

ASMTE 

3COM  SNA 

MW  SNA 

01VIT 

M67H  SNA 

MW  SNA 

JULOT 

MW  SNA 

M12N  SNA 

TIAIT 

MO 

SMCMC 

MEM  SNA 

PORT1 

MW  SNA 

M97N  SNA 

ACRE 

MO 

TAD5P 

3CW  SNA 

TIM 

81AM  SNA 

MO 

OTOSP 

3COM  SNA 

GATE 

MATH  SNA 

MO 

KCOAT 

3C87H  SNA 

DATA 

3C83H  SNA 

3CWSNA 

LSDATA 

3COM  SNA 

3CMHSNA 

ASDATA 

3COM  SNA 

MW  SNA 

KCOAT 

AGO 

TIKUP 

MEM  SNA 

pom 

3COM  SNA 

•2UN  SNA 

EXIT 

•2LEM  SNA 

MW  SNA 

NKT1 

MOM  SNA 

0239M  SNA 

MEW 

M3M  SNA 

AGO 

OATEUP 

3COM  SNA 

DATE 

IKMSNA 

MW  SNA 

OATEUP 

MW  SNA 

MW  SNA 

EXIT 

MW  SNA 

MTU!  SNA 

wen 

MO 

0191 

MOW  SNA 

DIM 

MW  SNA 

MW  SNA 

DIM 

MW  SNA 

MW  SNA 

Ot9l 

MW  SNA 

MO 

HC0D 

•KMSffl 

potn 

MW  SNA 

MW  SNA 

KCKV 

MW  SNA 

SNABOL 

VALUE  TYPE  SNABGL 

INTM 

MEM  SNA 

P0RT1 

TIM 

3CW  SNA 

TIKR 

MAIN 

MW  SNA 

TWRE 

AIN 

MEAN  SNA 

PORTS 

MOM) 

MB7H  SNA 

MXT 

ROD 

MS7H  SNA 

DOE 

FORT: 

3C8CN  SNA 

STBYFl 

STAY 

NON  SNA 

STWCK 

P0RT2 

MEM  SNA 

PORK 

PORTS 

MFM  SNA 

SAVOAT 

LSDATE 

3COM  SNA 

AIN 

SEC 

3CW  SNA 

TIMR 

EXIT 

81W  SNA 

EXIT2 

LEAP 

MW  SNA 

SANE 

OTTN 

M70N  SNA 

StCHK 

TMSP 

OTOSP 

MS 

3CW  SNA 

INTM 

LSDATE 

3CW  SNA 

AIN 

ASMTE 

MEM  SNA 

P0RT1 

TIM 

I2W  SNA 

MON 

EXIT1 

MSN  SNA 

exit: 

W02 

Ml*  SNA 

wen 

ONTO 

ME04  SNA 

Titer 

PORT! 

•MAN  SNA 

CtfCK 

GW 

MW  SNA 

OTOK 

wen 

MW  SNA 

wen 

OIM 

•MM  SNA 

DIM 

port: 

OUTIT 

MW  SNA 

P0RT3 

port: 

MW  SNA 

PCRT3 
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iiiil 


LOC  OBJ 


SOURCE  STATQENT 


SEO 


1 

NK 

INIT 

«. 

EXTRN 

TIHIT,  SUCHC  TIOSP,  DTDSP,  SAVWT,  STBYCX,  RCOTM 

xae 

J 

TIMER 

EOU 

3C88H 

X82 

4 

Tire 

EOU 

3C82H 

IC84 

5 

DATE 

EOU 

3C84H 

3C89 

6 

INTM. 

EOU 

3C89H 

08E4 

i 

PCRT1 

EOU 

0E4H 

OKS 

8 

P0RT2 

EOU 

0E5H 

y  i  wwrnmm 

18  , 

NRIN  PROGRAM 

11  , 

12  , 

PROGRAMS: 

STAPLETON 

13  ,  ***** 

******* 

14 

RSEG 

J000 

15 

ORG 

0 

.RST  8.  GENERATED  ON  POO-UP 

oeee  cjaeee 

C 

16 

JIT 

BEGIN 

0038 

17 

ORG 

38H 

.RST  t  (DERATED  BV  INTERUPT  1 

8838  C38080 

E 

18 

sir 

TIHIT 

19 

CSEG 

28  BEGIN 

8880  3E90 

21 

HVI 

A.90H 

.SET  UP  GROUP  R,  PORT  LIIPUT;  2*3  OUTPUT 

0882  D3E7 

22 

OUT 

BETH 

8084  21FF3C 

23 

LXI 

H.3CFFH  .INIT  STACK  LOCATION 

8887  F9 

24 

sm. 

0888  118880 

25 

LXI 

O.08H 

.  INIT  DISPLAV 

httfiD  ^4 QOAQ 
ww  tlWW 

26 

LXI 

H.80H 

888E  22883C 

27 

SHJ) 

vircR 

.  INIT  SEC'S  *  NSEC'S 

0811  22823C 

28 

SHJ) 

TIPC 

.  INIT  HEM  TIME 

8814  22043C 

29 

SHJ) 

DATE 

.  INIT  DfiTfc  ALSO 

9817  22893C 

38 

SHLD 

INTM. 

,  INIT  INTM. 

8818  3E60 

31 

HVI 

A.68H 

.RESET  INTEGRATOR,  SET  FILE  GAP  HI 

081C  D3E3 

32 

OUT 

P0RT2 

081E  3E00 

33 

HVI 

R.88H 

.RETURN  RESET  LINE  HI, SET  FILE  GAP  LO 

0828  D3E5 

34 

OUT 

P0RT2 

33  MAIN: 

8822  CM888 

E 

36 

CALL 

STBVCK 

882S  C089B8 

E 

37 

CALL 

RCOTM 

8828  CD80B8 

E 

38 

CALL 

SMO* 

0828  D6E4 

39 

IN 

P0RT1 

882D  E602 

48 

ANI 

82H 

-MASK  FOR  0ATE/T1NE  SNITCH 

882F  C23880 

C 

41 

JNZ 

T>€RE 

,  SET  TO  Tilt  JUW>  OVER  'DISLAY  DATE' 

>879  rmM 

■Wi  UMWII 

E 

42 

CALL 

OTDSP 

.SET  TO  DATE,  DISPLAV  IT 

8133  ('man 

C 

43 

JMP 

HRIN 

.LOOP  FOREVER 

44  THESE 

8838  CD8808 

E 

43 

CALL 

TTOSP 

-DISPLAV  Tllf 

8838  C32288 

C 

46 

jit 

NRIN 

.LOOP  FOREVER 

47 

00 

J{ 


IOC  OBJ 


SEQ 


SOURCE  STRIDENT 


1 

NK 

RCDTH 

*> 

& 

PUBLIC 

RCDTH 

3 

EXTRN 

SRVDRT.RECDRT 

3C01 

4 

SEC 

EOU 

3C01N 

3082 

5 

I11N 

EfiU 

3C02H 

3089 

6 

INTVL 

EOU 

3C09N 

BOER 

7 

3  , 

P0RT6 

EOU 

OERH 

9  . 

THIS  ROUTINE  OCOCS  THE  TIIC  fl»  RT  SED40 

10  , 

RECORDS  THE  DRTR  CALLED  FOR  ELSEMCRE  IF  THE 

11  , 

TIRE  HATOCS  TIC  INTERVAL  OF  TIE  SWITCH  ON  TIC 

12  , 

INTEGRATOR. 

13  , 

14  ; 

REGISTERS 

ft,  8 

15  i 

HEHORY 

INTVL  RCFIG,  INTVL 

16  , 

STACK  SPACE; 

2  BYTES 

17  , 

INPUT  PORTS: 

PORT  6 

18  ; 

OUTPUT  PORTS: 

NONE 

19  , 

PROGRAMED 

STAPLETON 

20  i 

mm 

21 

CSEG 

22  RCDTH: 

0000  3A013C 

23 

LDR 

SEC 

.GET  SECONDS 

0003  FEB0 

24 

CPI 

0OH 

.SEE  IF  08 

0006  CR09W 

C 

25 

JZ 

THERE 

,*60,  DECK  INTERVAL  SNITCH 

0008  C9 

26 

RET 

iELSE  RETURN 

27  i 

28  TTERE: 

0009  DOER 

29 

IN 

P0RT6 

iELSL  SCAN  INTERVAL  SN  ON  INTEGRATOR 

0006  E610 

38 

RNI 

10H 

,1  HIN  POSITION  NRSK 

0060  C21560 

C 

31 

JNZ 

AROUND 

>NOT  ONE  HIN.  PRESS  ON 

0010  3E01 

32 

HVI 

fiai 

.1  HIN 

8012  C33100 

C 

33 

JHP 

RCRD 

.THEN  START  RECORDING 

34  AROUM) 

0016  DOER 

35 

IN 

P0RT6 

i GET  ANOTHER  COPY  OF  INTERVAL  SH 

0017  E620 

36 

RNI 

20H 

iHHSK  FOR  10  HIN  INTERVAL 

0019  C22900 

C 

37 

JNZ 

NEXT 

.NOT  10  HIN. GO  DECK  68  HINS 

001C  3R023C 

38 

LDR 

HIN 

.GET  NINUITS 

061F  E60F 

39 

RNI 

OFH 

,HRSK  OFF  TENS 

0021  FE00 

40 

CPI 

0OH 

.CHECK  FOR  HINS  ■  XB 

0023  C8 

41 

RKZ 

.NOT  *  XB.  RETURN 

0024  3E10 

42 

HVI 

R.18H 

.PUT  ft  10  IN  ACC  FOR  STORING  IN  INTVL 

0026  C3310B 

c 

43 

JHP 

RCRD 

,G0  RECORD 

44  NEXT 

0029  3A023C 

45 

LDR 

HIN 

.GET  TIME 

002C  FEW 

46 

CPI 

BOH 

» UHEN  HINS  *  00  THE  TO  RECORD 

002E  CO 

47 

RNZ 

002F  JEW 

48 

HVI 

R.60H 

49  RC H> 

0031  320930 

50 

STR 

INTVL 

.STORE  INTERVAL  FOR  RECORDING 

0034  CDOOW 

E 

51 

CALL 

SRVDflT 

.GET  DRTR.  STORE  IT,  AND  RESET  INTEGRATOR 

0037  CDO00O 

E 

52 

CALL 

RECORT 

.THEN  RECORD  DRTR,  DATE,  THE  ET  ALL 

003R  C9 

53 

RET 

,  Tt€N  RETURN 

54  END 

V, 


IOC  06J 


SB 


SOURCE  STATEMENT 


80E4 

3C85 

3C84 

303 

3C82 

3C88 

307 

306 

30° 


1 

NAME 

RECDAT 

2 

PUBLIC 

RECDAT 

3 

EXTRA 

RECORD 

4 

P0RT1 

EOU 

8E4N 

S 

MSDATE 

EQU 

3C85H 

6 

LSDATE 

EOU 

3C94H 

7 

HRS 

EOU 

3C83H 

8 

MIN 

EOU 

3C82H 

9 

MSDATA 

EOU 

3C8QH 

18 

DATA 

EOU 

3C87H 

11 

LSDATA 

EOU 

3C86H 

12 

INTVL 

EQU 

3C89H 

13 

14  »  THIS  ROUTINE  CHECKS  THE  RUH/STAND8Y  SH1TCH 

13  -  SETTING  THEN  RECORDS  DATA  IN  DC  PROPER  SEOUENSE 

16  .  BV  LOADING  THE  DATA  INTO  THE  ACOJH  AM)  CALLING 

17  i  THE  RECORD  SUBROUTINE 

18  ; 


19  i  REGISTERS:  A 

28  i  NEHORV:  NONE 

21  i  STACK  SPACE.  1  8VTE 

22  j  INPUT  PORTS:  PORT  1 

23  *  OUTPUT  PORTS  NONE 

24  ;  PROQRANCR  STAPLETON 

25  . . 

26  CSEG 

27  RECDAT 


8888  DBE4 

28 

IN 

0882  E648 

29 

AN1 

8184  C8 

38 

R2 

31  i 

8886  3A033C 

32 

LDA 

8888  CD8808 

t 

33 

CALL 

0888  3A843C 

34 

LDA 

•88E  CD0888 

E 

35 

CALL 

Ull  3AB33C 

36 

LOA 

m4  CD8H8 

E 

37 

CALL 

m?  3A823C 

38 

LDA 

•HA  CD8I88 

E 

39 

CAU. 

mo  3A883C 

48 

LDA 

M2t  C008M 

C 

41 

CALL 

•823  3AB73C 

42 

LDA 

I826  CD8888 

E 

43 

CALL 

1829  3A863C 

44 

LDA 

8KC  CD8888 

E 

45 

CALL 

882F  3A893C 

46 

LDA 

8832  CD8888 

E 

47 

CALL 

•835  CS 

48 

RET 

49 

END 

P0RT1  iSU  PORT 
4»  .MASK  FOR  STBV  SM 
i  IN  STBV,  RETORN 

HSPRTE  i  else  start  recording  SEOJOCE 

RECORD 

LSPATE 

RECORD 

MtS 

RECORD 

AIN 

RECORD 

HSDRTR 

RECORD 

DATA 

RECORD 

LSPATA 

RECORD 

INTVL 

RECORD 


33 


i 


LOC  OBJ 


SEC 


SOURCE  STRTOOfT 


00E4 


8B8B2F 
0681  D3E6 


0802  DK5 
8005  f 680 
0007  03E5 
0009  E67F 
D3E5 


008DOBE4 

mem 

0011  C20O08 
0014  C9 


1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

a 

22  RECORD 

23 

24 

25; 

26  ; 

27; 

28 
29 
38 
21 
32 
22  ; 

34  ; 

35; 

36  REC8SV. 

27  mi 

38  J® 

»  RET 

40  END 


WE  RECORD 
PUBLIC  RECORD 
PaTl  ECU  8E4H 
POT2  EfiU  0E5H 
P0RT3  ECU  0E6H 


RECORD  ROUTINE 
THIS  ROUTIfC  SEWS  OK 
BVTE  OF  DflTR  TO  TIC  RECORDER, 
THEN  SEW5  ft  'RECORD'  CTHK' 
«T«  HUST  BE  IN  7K  ficSSSwOR 
PRIOR  TO  CULLING  THISPrSwT 

REGISTERS:  fl 

WWRV:  NONE 

STUCK  SPACE:  NOTE 

«WT  PORTS:  PORT  1 

OUTPUT  PORTS:  PORT  2 

PWORWO:  HflNTZ 


;  INVERT  DflTR  TO  CORRECT 


CSEG 

CNR 

OUT 


PCRT3 

STROK  TO  STflRT  RECORDING 


IN 

P0RT2 

ORI 

88H 

OUT 

P0RT2 

mi 

7FH 

OUT 

P0RT2 

MONITOR  THE  BUSY  BIT 

IN 

P0RT1 

80H  ;f»W  BUSY  BIT 
REC8SY  ;  LOOP  UNTIL  DONE 
;THEN  RETURN 


ih 


LOC  OBJ 


SOURCE  STHTEKNT 


SES 


1 

me 

STBVCK 

2 

PUBLIC 

STBVCK 

3cac 

3 

STBVFL 

EBU 

3C8CH 

00E4 

4 

P0RT1 

EOU 

0E4H 

HES 

5 

6 

7 

8 

9 

PCRT2 

EBU 

0E3H 

STAMBY/RUN  SNITCH  OCCX 

THIS  ROUTIK  CHECKS  THE  STRTUS  OF  TTC  RUN7STMD8V  SNITCH 

18 

IIC  GEJERATES  8  FILE  GPP  COMMAND  UPON  TIE  TRANSITION 

11 

FROM  STAM8V  TO  RUN  THIS  IN  TURN  RESETS  THE  RECORDER 

12 

WORD  COUNTER 

13 

14 

REGISTERS: 

8 

15 

MEMORY: 

STBVFL  (STANDBY  FLBG  •  FF  IN  STBV) 

18 

STOCK  SPACE: 

NONE 

17 

IBW  PORTS: 

PORTS  1,2 

18 

OUTPUT  PORTS: 

PORT  2 

19 

PROGRMCX: 

STAPLETON 

20 

21 

CSEG 

22  STBVCK: 

0MB  DBE4 

23 

IN 

P0RT1 

iSTBV/RUN  SN  INPUT  PORT 

0M2E640 

24 

8NI 

40H 

;NRSKFORSH 

0004  CRUM 

C 

23 

JZ 

SETFLG 

;  MOT  RUN»  SET  FLAG 

tUf  3ftBC3C 

26 

lift 

STBVFL 

,  RUN,  OET  FLAG 

008RF6M 

27 

ORI 

00H 

;  SEE  IF  SET 

00K 

C 

28 

JN2 

SIRS 

i  IN  'RUN'  AND  FLAG  SET,  SQC  STROK 

0MF  C9 

29 

RET 

jOTTEMISE  RETURN 

30  SETFLG: 

00U3EFF 

31 

NVI 

ft»0FFH 

;  STANDBY  >  FF 

0012  728CTC 

32 

STB 

STBVFL 

; STORE  IT 

0013  C9 

33 

RET 

iTHEN  RETURN 

34  STUB: 

0016  D0E3 

33 

IN 

P0RT2 

« GET  COPY  OF  STROK  PORT 

0018  F620 

36 

ORI 

20H 

;SET  FILE  GRP  STROK  HI 

0018  D3E3 

37 

OUT 

P0RT2 

>  SEND  IT  TO  RECORDER 

me  EOF 

38 

MI 

0OFH 

; RETURN  STROK  LON 

00UE  D3E3 

39 

OUT 

P0RT2 

;SE»  IT 

48STHV: 

0020  0CE4 

41 

IN 

P0RT1 

jflUSV  BIT  IKUT  PORT 

0022  E6M 

42 

MI 

80H 

i  BUSY  8IT  MASK 

0024  C220M 

C 

43 

JKZ 

STAY 

t  LOOP  KK  UNTIL  DO*,  THEN 

0827  3EM 

44 

NVI 

ft»00H 

; RESET  STR8FL  TO  08, 

0029  TTBCTC 

45 

ST8 

STBVFL 

,m>  STORE  IT 

002CC9 

46 

RET 

iTTCH  RETURN 

47  i 

48  END 

37 


4 


Sliii  llllliliiiiii 


toe  oej 


SES 


SOURCE  STATEONT 


1 

NAME 

SAVDAT 

2 

PUBLIC 

SAVDAT 

3 

DATA 

E8U 

3C86H 

4 

P0RT2 

ESU 

8ESH 

5 

P0RT4 

EQU 

0E8H 

6 

PORTS 

EOU 

8E9H 

7 

P0RT6 

ESU 

GEAH 

8  ;*****•> 

9  i 

SAVE  DATA 

* 

U  i 

11  i 

THIS  ROUTIO  READS  THE  OUTPUT  OF  TO  INTEGRATOR 

12  i 

AND  STORES  IT  IN  TWEE  MEMORY  LOCATIONS  STARTING 

13  i 

AT  DATA 

IT  ALSO  RESETS  TO  INTEGRATOR  TO  ZERO 

14  ; 

IS  ; 

REGISTERS: 

ACC 

16  ; 

MEMORY: 

3  BYTES 

17  » 

STACK  SPACE: 

NOO 

18. 

INPUT  PORTS: 

PORTS  2>4<S»6 

19  i 

OUTPUT  PORTS: 

PORT  2 

28  i 

PROGRAMMER: 

STAPLETON 

21  ,♦****♦ 

****** 

22 

CSEG 

- 

23  i 

08E8 

24  SAVDAT: 

IN 

P0RT4 

i  READ  L  S  DIGITS  OF  INTEGRATOR 

32863C 

25 

STA 

OATA 

» STORE  IT  IN  MEMORY  'DATA' 

009 

26 

IN 

PORTS 

32873C 

27 

STA 

DATTH1 

obea 

28 

IN 

P0RT6 

EOF 

29 

ANI 

OH 

(MASK  OFF  UPPER  BITS 

T28BTQ 

38 

STA 

DATA+2 

DOS 

31 

IN 

PCRT2 

i  GET  COPY  OF  PORT  2 

F648 

32 

0R1 

48H 

jNASX  off  all  but  integr  reset  bit 

D3E5 

33 

OUT 

P0RT2 

i RESET  INTEGRATOR 

EOF 

34 

ANI 

HFH 

i SET  BIT  7  HI 

D3ES 

35 

OUT 

P0RT2 

-RETURN  INTEGR  TO  COUNTING 

C9 

36 

RET 

-RETURN  TO  CALLNG  PRGM 

37 

END 

38 


8  88888  l8liillllliiiii8iii8S8l 


LOC  OBJ 


SEB 


SOURCE  STRIDENT 


1 

ME 

TWIT 

2 

PUBLIC 

TWIT 

3 

NSDATE 

EBU 

3C8SN 

iLO  ORDER  DIBIT  OF  VERB 

4 

.  OC  HI  ORDER  DIGIT  OF  ORTE 

S 

LSDATE 

EQU 

3C84H 

iLQH  ORDER  DIGITS  OF  ORTE 

6 

m 

EBU 

3C83H 

HOURS 

7 

MN 

EBU 

3C82H 

i MINUTES 

8 

SEC 

EBU 

3C81N 

jSECODS 

9 

tiier 

EBU 

3C88H 

JOINS  OF  SECONDS 

11  >  niimmii 

11  i  INTERRUPT  DRIVEN  REAL  TIIE  CLOCK 

12  ; 


13  j 

THIS  ROUT  HE  IS  R  SOFTWARE/  INTERRUPT 

14; 

DRIVEN  JULIAN  ORTE  CALENDER  Att  REAL  THE 

IS  ; 

CLOCK.  IT  IS  R  BORROWED  PROGRAM  THAT  HRS 

16  ; 

BEEN  SLIGHTLY  MODIFIED  TIE  ORIGINAL 

17  ; 

VERSION  CRN  BE  FOUND  IN  INSITE.  REF.  NOl 

18; 

PE  7-69. 

19; 

21  ; 

REGISTERS: 

NONE.  ILL  STATUS  SAWED 

21; 

MEMORY: 

TIMER.  SEC.  NHL  ML 

22  ; 

LSDRTLNSDRTE 

23  ; 

STACK  SPACE: 

2  BYTES 

24  ; 

HWT  PORTS: 

NOE 

23; 

OUTPUT  PORTS. 

NONE 

26  ; 

PROGRAMMER: 

SIDE  6EC8UER 

27  I'M 

MMMM 

21  CSEG 

29  TIHIT; 


FS 

31 

PUSH 

PSH 

/  SAVE  STATUS  AND  REGISTERS 

C5 

31 

PUSH 

B 

i  OF  INTERRUPTED  ROUTIIE. 

DO 

32 

PUSH 

D 

; 

33 

LXI 

D.  TIMER  ;  OET  ADDRESS  OF  THE  COUNTERS  (6BTHS  OF  SEC) 

8668 

34 

mi 

B.6W 

; SET  MODULO  TO  61 

OEBB 

35 

mi 

C/8 

;  SET  STARTING  COUNT  TO  8 

C09NBB 

C 

36 

CALL 

DIVIT 

;  UPDATE  68WS  OF  SEC  COUNTER 

8661 

37 

mi 

B.OH 

J SET  MODULO  TO  6* 

CDOOBB 

C 

38 

CALL 

DIVIT 

.UPDATE  SECODS  COIMTER 

CD9RBI 

c 

39 

CALL 

DIVIT 

<  UPDATE  MINUTES  COUNTER 

8(24 

41 

mi 

B.24H 

;  SET  MODULO  TO  24. 

CD3R88 

c 

41 

CALL 

DIVIT 

;  UPDATE  HOURS  COWTER 

nine 

42 

LXI 

D/HSDATE 

tm 

43 

mi 

B.IM4 

i SET  MODULO  181 

1A 

44 

LOAN 

D 

;  LORD  COUNT  (VWSDRTE) 

E68F 

48 

ANI 

*H 

(MASK  OFF  YEAR. LEAVE  HD  DAYS 

FEB 

46 

CPI 

83H 

/DC  DAYS? 

C24GB8 

c 

47 

jic 

JULDT 

.NO.  00  INCR  LS  DATE 

1A 

41 

LOAN 

D 

;  OET  ANOTHER  COPY  OF  tiUHSDATE 

m 

49 

mi 

CzWH 

;  START  COUNT  DAYS  Ft  8tt 

cm 

91 

ANI 

BFW 

(MASK  OFF  HD  DAYS 

FOB 

91 

cri 

88 

>1981 

CA3MB 

92 

JZ 

LEAP 

39 


MUFE28 

S3 

CPI 

48 

>1984 

0- 

8133  CR38M 

54 

JZ 

LEBP 

UK  KK 

55 

HVI 

B.66H 

iNOT  LEBP.  RESETS  RT  66 

M38  C348M 

C 

X 

JN> 

JULDT 

i  UPDATE  OBTE 

•838  866? 

57  LERP: 

IWI 

B.67H 

i  LEAP  VERR.  RESETS  AT  67 

H3D  C348M 

c 

X 

JHP 

JULOT 

X  JULDT. 

0* 

MM  IB 

68 

OCX 

0 

> POINT  TO  LS  OBTE 

mmi  cssnee 

c 

61 

cm 

DIVIT 

.UPDATE  LS  DATE  COUNTER 

AM4 

62 

HVI 

B.04H 

.RESETS  KN  NS  DATE-4 

0* 

BMC  IB 

63 

LDRX 

D 

.GET  16  DATE 

0* 

•847  3C 

M 

INK 

B 

» INCR  IT 

mat 2 

65 

STBX 

D 

; STORE  R  COPY.  fl» 

0* 

man 

66 

MB 

B 

.NRSK  VEflR  MILE  C0PMING  TO  4  HD  OBVS 

814AM 

67 

CMP 

6 

iflCC  ■  8  IF  4M  DAVS 

•mb  asm 

c 

68 

JNZ 

EXIT2 

iNOT  OVER  365  OR  366 

00 

•ME  lfl 

69 

LOW 

D 

iDBVS  >  4XX. READY  RESET 

IMF  E6FB 

78 

MI 

0F8H 

; RESET  1C  DAVS  .LEAVE  VEBR  AUK 

M51CS10 

71 

SI 

UN 

*  ADD  1  TO  VERB 

0* 

MSS  12 

72 

STM 

D 

i  STORE  MEN 

-s 

73  EXIT2: 

M54M 

74 

POP 

D 

iDUNW  RETURN 

75  EXIT: 

-v 

MSS  Di 

76 

POP 

D 

i RESTORE  REGISTERS 

MX  Cl 

77 

POP 

B 

# 

40 

8157  FI 

78 

POP 

PSN 

i  RESTORE  STATUS 

M58FB 

79 

El 

.ENRBLE  FURDfR  INTERRUPTS 

MSB  C9 

M 

RET 

; RETURN  TO  INTERRUPTED  ROUTIM 

0 

81  DIVIT: 

i  VRRIBLE  NOOULO  COUNTER. 

MM  IB 

82 

LDM 

D 

.LORD  COUNTER  TO  BE  INCREKNTED  INTO  ROC 

MS  37 

83 

STC 

i 

MSC  3F 

84 

CMC 

i  CLEAR  CRRRV  BV  SETTING  IT 

85 

.MO  THEN  CONPLOGFTING  IT. 

MS  3C 

X 

IM 

B 

i  INCREMENT  COUNT. 

0* 

MSE  27 

87 

DBB 

i  DECINRL  ADJUST. 

MSFM 

M 

CM 

B 

jTEST  IF  RESET  COUNT 

89 

iHRS  BEE  REAQCD. 

88MC264M 

c 

98 

JC 

SflVE 

i  IF  NOT  REACHED. 

91 

i  SAVE  COUNT  fVC  EXIT. 

MO  79 

92 

NOV 

fcC 

.RESET  TO  STARTING  COUNT. 

93  SME 

MM  12 

94 

STM 

D 

i  RETURN  COUNT  TO  fCAORV. 

HQ  13 

95 

IM 

D 

i  POINT  TO  NEXT  COUNTER 

MKC8 

X 

RZ 

iIF  RESET  OCCURED. 

97 

iQO  UPDATE  «XT  COUNTER 

MS7M 

98 

POP 

D 

t  IF  NOT,  ISSUE  A  DUMV  RETURN 

MO  C3SSM 

c 

99 

JM 

EXIT 

.EXIT  DIVIT. 

1M 

DC 

LX  OBJ 


SOURCE  STRIDENT 


SEB 


1 

MK 

SHOE 

2 

PUBUC 

SHOE 

3 

EXTRN 

DATEUP.  TINEUP.  OTDSP.  TTD6P 

ME4 

4 

P0RT1 

EBU 

C4H 

3  j 

6  < 

SNITCH  QCCK 

7  * 

OCCXS  FRONT  FUEL  SNITOES  FOR  RUWSET, 

8  i 

OATE/TBC.  CALLS  APPROPIRTE  ROUTlIt 

9  i 

REBISTERS: 

A 

18  * 

IBORV: 

NONE 

11 * 

STACK  SPACE: 

2  BVTE5 

12  * 

IIWT  PORTS: 

PORT  1 

13  i 

OUTPUT  PORTS: 

NONE 

14  * 

PROORMCR: 

STAPLETON 

It 

16  CSEG 
17* 

MM  D8E4 

18  SHOE: 

IN 

P0RT1 

*SN  INPUT  PORT 

M82  EMI 

19 

ANI 

81H 

♦NASA  FOR  ROWSET.  SN-5 

MM  CA89M 

C 

28 

JZ 

OTTH 

*  NOT  RUN.  00  SET  OATE/TINE 

NT  FB 

21 

El 

i  ENABLE  INTERUPT  FOR  CLOCK 

NMC9 

22 

23  OTTO: 

RET 

.RUN.  RETURN  TO  CALLING  PROQRAN 

MM  n 

24 

01 

*  DISABLE  INTERUPTS  STOP  CLOCK 

MMD6E4 

25 

IN 

P0RT1 

*QET  ANOTHER  COPV  OF  PORT 

NBCE682 

26 

ANI 

82H 

iNRSK  FOR  OATE/TINE 

MK  C21AN 

C 

27 

J» 

ACRE 

*80  UPDATE  TINE 

Ntl  COMM 

E 

28 

an 

OTDSP 

*  DISPLAY  DATE 

ML4C0MM 

E 

29 

an 

DATEUP 

*  UPDATE  IT 

M17C3MM 

C 

38 

31  DDE: 

JK» 

SHOE 

iOEOC  SNITOES  UNTIL  RUN 

MW  COMM 

E 

32 

an 

TADSP 

COMM 

E 

XI 

an 

TDtUP 

m  rvflaa 

C 

34 

JAP 

SHOE 

35 

OB 

41 


LflC  OBJ 

SB 

SOURCE  STRIDENT 

1 

INC 

TIMUP 

-s 

2 

PUBLIC 

TIMUP 

3 

EXTRN 

DCSP 

XK 

4 

TIM 

EBU 

scan 

HE4 

5 

c 

PQRT1 

EOU 

BE4N 

. 

0 

7 

TIM  UPDATE 

8 

THIS  ROUTIM  CMOS  DC  BUTTONS  USER  DC 

9 

FRONT  PUB.  DISPLAY  AND  INCREMNTS  DAT 

* 

10 

DIGIT  ETCH  TIM  DC  BUTTON  IS  DEPRESSED 

-*N 

n 

CALLS  THDSP  AN)  DISPLAYS  MM  TIM 

12 

13 

DIG  1 

DIG  2 

DIG  3  DIG  4 

*-s 

14 

NS  HR 

LS  HR 

NSHIN  LS  MN 

IS 

— 

— 

•  — —  — — 

16 

SMI 

SM  2 

SM  3  SM  4 

17 

18 

REGISTERS: 

AD.LH.L 

19 

MHQRY: 

TIM  (2  BYTES) 

28 

STACK  SPACE: 

2  BYTES 

21 

UNIT  PORTS: 

PORT  1 

22 

OUTPUT  PORTS: 

NOM 

23 

PROMANCR: 

STAPLETON 

24 

2S 

CSEG 

26  TIMUR: 

NM  2RBZ3C 

27 

OLD 

TIM 

« HRS  t  AIMS  TO  ML 

•MS  EB 

28 

XCHB 

.PUT  INTO  DIE 

MMDK4 

29 

IN 

P0RT1 

i  GET  COPY  OF  BUTTON  UNIT  PORT 

use  Ed 

38 

ANI 

2BH 

iNRSK  OFF  FOR  SM-4.LSD  NINS 

MM  CRUM 

C 

31 

JZ 

WT1 

.NOT  THIS  BUTTON.  PRESS  ON 

•MB  7B 

32 

NOV 

HE 

•BUTTON  (XML  PUT  NINS  INTO  RCC 

•BBCC681 

33 

ADI 

UN 

*  ADD  1 

•ME  27 

34 

OAR 

,  DECIMAL  ADJUST  (HOI  INK  NEXT  DIGIT) 

•MF  CZ9M 

c 

35 

JP 

EXIT1 

BU2  0BE4 

36  NXT1:  IN 

P0RT1 

•  GET  ANOTHER  COPY  OF  P0KT1 

M14  E6U 

37 

AM 

UN 

iNASK  FOR  SM-3.N9D  ND6 

"N 

MMOMM 

c 

38 

JZ 

WT2 

» NOT  DOW.  PRESS  ON 

•M9  7B 

39 

HO V 

HE 

•BUTTON  OOUi  HOVE  NWS  INTO  ACC 

BRLRC6U 

48 

ADI 

1BN 

iINCREMNT  NSDMNSBYl 

•"N 

MIC  27 

41 

OAR 

.DEC INAL  ADJUST.  DISREGARD  CARYOUT 

BMDC33AN 

c 

42 

JM 

EXIT1 

;WM  EXIT 

MM0K4 

43  WT2:  IN 

P0RT1 

-s 

M22ESM 

44 

ANI 

BBN 

iNRSK  FOR  SM-2.  LSD  HRS 

M24CR2EM 

c 

45 

JZ 

1003 

•  NOT  DOW 

M27  7R 

46 

NOV 

A.D 

i  BUTTON  BONN.  HOVE  MS  INTO  RCC 

-"K, 

MM  CM 

47 

ADI 

BIN 

•  ADO  1 

MM  27 

48 

OAR 

MMC343M 

c 

49 

Jlf> 

EXIT2 

-"•S 

M2E  ME4 

51 WT3:  IN 

P0RT1 

MSI  EM* 

51 

AM 

MN 

•  SM-1 

MB  C8 

52 

RZ 

•  RET  TO  CALLING  PBRHNO  BUTTONS  MW 

•BB3  7A 

53 

NOV 

HD 

•04  OEM 

a 

ADI 

1BN 

mtz? 

m?  C343RI  c 

mnna 

ooc  Ffkue  c 

OOF  3EH 

SMI  5F 

0042  C3408I  C 

0045  FE24 
0O47FA4CO8  C 
&.R  im 
me  57 


8M0  ES 
0MC22C3C 
OBI  COMM 
0054  00E4 
0056  E63C 
0BBC254M 

owes 


55 

SO 

57  EXITl: 

31 

59 

a 

01  OMERl: 
02 

03EXIT2: 

04 

05 

00 

67  0VBB: 

68, 

O  EXIT: 
71 

71 

72 

73  DOOM: 

74 
73 
70 

77  i 

78  END 


-NOHJLO  01  KINS 
-LESS  THAN  61 

-RESET  TO  M  IF  GMIN5  «  NONE 
-RETURN  WINS  TO  E  REGISTER 


24H  ;NCML0  24  HRS 

0VER2  -LESS  TURN  24 
now  -RESET  TO  M  IF  24  OR  HONE 
D-A  -RETURN  MS  TO  D  REGISTER 


-PUT  Tilt  IN  NIL 

i  put  the  in  kaorv 

-DISPLAY  NEH  Tilt 
-GET  ANOTHER  COPY  OF  PORT  i 
-MASK  FOR  SNITCHES  STILL  DONN 
-  HAIT  FOR  SN  TO  K  RELEASED 
-RETURN  TO  CALLUS  PROGRAM 


Ltt  OBJ 


SEB 


SOME  STATEMENT 


1  INC  DATEUP 

2  PUBLIC  DATEUP 

3  EXTRA  DTDSP 

3CB4  4  DATE  EBU  3CB4H 

HE4  5  P0RT1  EBU  K4H 

6;  — — — — 

7  ;  JULIfW  DATE  UPDATE 

8  .  THIS  ROUT  IK  OCRS  M.  BUTTONS  USER  THE 

9  ;  FRONT  PIVCL  DISPLAY  AND  INCREKNT5  THAT 

18  ;  DIBIT  EACH  THC  TtC  BUTTON  IS  DEPRESSED. 

11  ;  CALLS  DTDSP  PH>  DISPLAYS  KM  DATE. 

12  ; 

13  ; NOTE:  CONTAINS  NO  PROVISION  FOR  NMJRLiV  SETTING 


14  ; 

366  DAYS  IN  LEAP  YEAR  ONLY  DEC  31  AFFECTED. 

15  . 

AND  MO  MRS  KM  YEARS  EVE? 

16  ; 

17  i 

DIG  1 

DIG  2 

DIG  3  DIG  4 

18  i 

LS  YEAR 

HD  DATE  TN  DATE  UN  DATE 

19  » 

■  -  - 

28  ; 

SMI 

SH2 

SH  3  SN4 

21  ; 

22, 

REGISTERS: 

AD.LH.L 

23  i 

MEMORY: 

DATE  (2  BYTES) 

24  ; 

STACK  SPACE: 

2  8YTES 

25  » 

IMVT  PORTS: 

PORT  1 

— N 

26; 

OUTPUT  PORTS  . 

NONE 

27; 

PAOBRAHtR: 

STAPLETON 

28;w«m 

29 

CSEB 

38  ; 

31  DATEUP 

M8  2A843C 

32 

ULD 

DATE 

;  JULIAN  DATE  INTO  ML 

M3  EB 

33 

WHO 

.PUT  INTO  DC 

IMOK4 

34 

IN 

PORT1 

;QET  COPY  OF  BUTTON  1IPUT  PORT 

ME  EE2B 

35 

AM 

2M 

;HRSK  OFT  FOR  SIM.  UMTS  DATE 

MBCAU88 

C 

36 

JZ 

KTl 

.NOT  THIS  BUm  PRESS  ON 

MB7B 

37 

NOV 

AE 

;  BUTTON  DOWN.  PUT  LAST  2  OF  DATE  IN  ACC 

MC  CEIl 

38 

ADI 

«H 

;  ADO  1 

ME  27 

39 

OAR 

;  DECIMAL  ADJUST 

MF3F 

48 

NOV 

LA 

;  RETURN  IT  TO  E  REGIS 

HU  CBM 

C 

41 

IP 

DTQK 

M3  0BE4 

42  IBRi: 

IN 

PORTi 

; GET  ANOTHER  COPY  OF  PORT  1 

MSEE1I 

43 

AM 

18N 

,  NRSK  FOR  SH-3.  TENS  DATE 

M7  CA22H 

c 

44 

a 

WCT2 

.NOT  THIS  BUTTON  EITKR 

MR  7B 

45 

NO V 

HE 

;  BUTTON  DOW.  PUT  LAST  2  OF  DATE  IN  ACC 

MB  CUB 

46 

ADI 

lM 

, ADO  i  TO  TENS 

MD  27 

47 

OAR 

ME  OF 

48 

NOV 

LA 

MF  CBM 

c 

49 

J* 

DTQK 

44 


M22  D6E4 

mi  im 

me  cfom  c 

m3  7R 

«a»  cm 

me  v 
me  5? 

««C33®I8  c 
am  dgc4 
0833  E684 
8833  CS 
8836  7R 
0037  Cola 
003a  27 
003ft  57 

0808  7ft 
083CE68F 
0OEFE83 
8848  FR5200  C 
0M3  CR488S  c 
8846  7fi 
0047  E6F8 
8049  37 
804ft  78 
8848  FE66 
8040  FR32N  C 
8830  1£B0 


8032  EB 
8853  22043C 


8889  D8E4 
8858  EGC 


38  8002; 

IN 

P0RT1 

31 

«I 

88N 

32 

JZ 

WT3 

33 

NOV 

<10 

54 

ADI 

HH 

95 

MR 

34 

NOV 

D.fl 

37 

JNP 

DTO* 

son. 

IN 

P0RT1 

39 

ANI 

84H 

6 1 

RZ 

61 

NOV 

A.0 

62 

ADI 

1IH 

63 

MR 

64 

65  DTDK: 

NOV 

D.A 

66 

NOV 

A.0 

67 

ANI 

8FN 

68 

CP! 

SON 

69 

JH 

EXIT 

78 

JZ 

oca 

71 

NOV 

A.0 

72 

ANI 

8FW 

73 

NOV 

0.  A 

74  DECK: 

NOV 

as 

73 

CPI 

66H 

76 

JM 

EXIT 

77 

78  i 

79  EXIT. 

NVI 

E.88H 

81 

XCNB 

81 

SUD 

OftTE 

82 

GALL 

DTDSP 

83D80N: 

IN 

P0RT1 

84 

ANI 

XU 

89 

JW 

cam 

86 

Vi 

88  EM) 

RET 

.*W  FOR  »-2 
TWS  BUTTON 

'  YEAR  4  HB'S  OF  DATE  TO  ACC 


-NRSJC  FOR  SN-1 

;M0  SN'S  OQML  RETURN  TO  DUMB  PRO! 


iW  4  USD, DftTE  TO  «CC 
iWN  OFF  UPPB  BITS  (¥8) 
.OVER  381  MYS? 

.NO.  EXIT 

•  288.  QO  SEE  IF  90  ](5 
•ova  moET  fume  arv 
<  RESET  USD.  DATE  TO  a 
.  RETURN  IT  TO  0 
iGET  LAST  2  DIGITS 
. OVER  63?  (363  DAYS  PER) 
.NO.  EXIT 
.YES,  RESET  TO  88 


iPUT  OftTE  IN  HRL 
iPUT  OftTE  IN  MEMORY 
i  DISPLAY  TEN  DftTE 
.GET  ANOTHER  COPY  OF  PORT  1 
jftftSK  FIR  SNITCHES  STILL  DOW 
•  WIT  FOR  SH  TO  BE  RELERSED 
'RETURN  TO  CALLING  PROGRAM 


45 


LOC  OBJ 


SEQ 


SOURCE  STRIQDIT 


302 


000B2ABZX 

O 


1 

me  TAD5P 

2 

PUBLIC  TMDSP 

3 

EXTRA  DISPL 

4 

TKC  EBU 

3C82H 

5  i«*H* 

******* 

6  ; 

DISPLAY  TIME 

7  i 

8  i 

THIS  ROUTINE  ACCESSES  TIC  TINE 

9  i 

LOCATIONS  AND  DISPLAYS  HOI  IN 

11  i 

rORHAT: 

11  ; 

12  ; 

DIO  1  DIG  2 

DIG  3  DIG  4 

13  ; 

- - 

— — ...  _ 

14  ; 

m  hr 

AIN  AIN 

IS  i 

18. 

REGISTERS: 

A.D.LH.L 

17  ; 

MEMORY:  TINE  (2 

BYTES) 

18  ; 

STACK  SPACE: 

2BYTES 

19; 

UWT  PORTS; 

HOC 

28  ; 

OUTPUT  PORTS: 

PORTS  2.  3 

21 ; 

PROORAMCR: 

A  HRNT2 

22  ;  MW 

MMM 

23 

CSEB 

24  T)OSP. 

25 

LHLD  TKC 

;  LORD  H  WITH  HR 

26 

XCHB 

;  PUT  IN  DC 

27 

JAP  DISPL 

;  DISPLAY  IT 

28  ; 

29 

00 

46 


IOC  OBJ 

SEQ 

SOURCE  STftTQENT 

1 

MflME  DTDSP 

2 

PUBLIC  DTDSP 

2 

EXTRN  DISPL 

X04 

4 

s 

DOTE  EOU 

3C04H 

6 

7 

D1SPLAV  DOTE 

f 

0 

THIS  ROUTINE  ACCESSES  TIC  JULIAN  DATE  IOBRV 

9 

LOCATIONS  fltt  DISPLAVS  TIO  IN  THE  FOLLOWING 

18 

FORNAT: 

11 

12 

DIG  1  DIG  2 

DIG  3  DIG  4 

13 

— — -  - 

-  - - 

14 

LS  VR  DATE 

DATE  DATE 

IS 

16 

REGISTERS: 

A.D.LH.L 

17 

MEMORY:  DATE  (2 

BYTES) 

18 

STACK  SPACE: 

2  BYTES 

19 

INPUT  PORTS: 

NONE 

28 

OUTPUT  PORTS: 

PORTS  2,  3 

21. 

PROGRANER: 

STAPLETON 

22 

♦inmiiiiM 

23 

CSEG 

24  DTDSP: 

0000  2A043C 

23 

LHLD  DATE 

<L0AD  HIL  WITH  DATE 

0003  EB 

26 

XCHG 

i PUT  IN  DE 

0004  C38000 

E  27 

JIP  DISPL 

'DISPLAY  IT 

28  ; 

Sll  911  89119  88 


4  ?i 

48  turn : 

V  49  cm  ;  INVERT  ORTH  TO  PORT 

03K  58  OUT  PORT3  i  OUTPUT  IT  M  LATCH  PORT 

Si  j  STROK  HL  LATCHES  HIGH 

080  52  IN  P0RT2  j  GET  COPY  OF  LORD  PORT 

EDT  53  #1  IFH  » IMCRT  UPPER  4  BITS 

KBF  54  ORI  VH  >  SET  LOWER  4  HIGH 

2 F  55  Cm  illWGRT  FOR  OUT 

MO  %  OUT  P0RT2  /HAVEN'T  CHRNGEP  UPPER  4  BITS 

57  <  STROBE  SELECTED  DIBIT  LOW  TO  LORD 
EffB  S  II  11  >  ZERO  LttER  4  BITS 

SB  59  am  8  i  MERGE  INVERTED  SELECT  BITS 

030  a  OUT  PORT?  ;  SEND  LORD  COOE 

a  >  STROBE  ALL  LRTDCS  HIGH 

ECFD  62  MI  Ptt  ;  RESET  LATCHES 

030  63  OUT  PORTS  i REESTABLISH  HOLD  STATE. 

C9  €4  RET 

<5  > 

66  EM) 


siiisi  siiiiiiiiiiiiiiiiiiii 


SOURCE  STATEMENT 


UK  OBJ  SEB 


7R 

0602 

002108  C 
7R 
0F 
0F 
0F 
0F 
0601 

CD2100  C 
7B 

0600 

CD2UB  C 

7B 

0F 

0F 

0F 

OF 

0604 

02100  C 
C9 


1 

NAME 

DISPL 

2 

PUBLIC 

DISPL 

3  Did 

EOU 

01H  j 

DIGIT  i  ENABLE 

4DIG2 

EOU 

02H 

DIGIT  2  ENABLE 

5  DIO 

EOU 

ftili 

wn 

DIGIT  3  ENABLE 

6DIG4 

EOU 

OSH 

DIGIT  4  ENABLE 

7P0RT2 

EOU 

0ESH 

PORT  2  8255  01 

8P0RT3 

EOU 

0E6H 

PORT  3  8235  W 

9  >  •***•' 

10  > 

DISPLAY  ROUTINE 

n» 

12  i  DISPLAYS  CONTENTS  OF  ME  REGISTERS  ALHAVS. 

13  ;  '8'  REGISTER  CONTAINS  DIGIT  EXPEL!  A  'i'  IN  PNV 


14  i 

OF  TIC  BITS  HILL  SELECT  THAT  DIGIT.  THIS  PROGRAM 

15  i 

DOES  HOT  EFFECT 

THE  HIGH  ORDER  BYTE  OF  PORT  1 

16  * 

. 

1 7  i 

REGISTERS. 

aBiDiLHiL 

18  i 

HENRY:  NOE 

19  i 

STACK  SPACE: 

2BVTES 

28  i 

IWUT  PORTS. 

PCRT2*P0RT3 

21  i 

OUTPUT  PORTS: 

P0RT2/P0RT3 

22  j 

PROGRAMED : 

STAPLETON 

23;«m«m 

mini 

M 

24 

CSEO 

25  DISPL: 

26 

NOW 

A.D 

>U»  ACCOM  H1TH  DATA  FROM  D 

27 

AVI 

B/DIQ2 

28 

CALL 

outit 

-OUTPUT  LG  BYTE 

29 

NY 

ao 

-GET  ANOTHER  COPY 

38 

RRC 

31 

ARC 

32 

RRC 

33 

RRC 

iHOVE  4  MSB'S  TO  4  LSB'S  POSITION 

34 

HYI 

a  Did 

35 

CALL 

OUTIT 

36 

NY 

aE 

i  GET  DATA  FROM  E 

37 

HYI 

&D1G4 

38 

CALL 

OUTIT 

39 

HOW 

aE 

i  GET  ANODCR  COPY 

40 

RRC 

41’ 

RR 

42 

RRC 

43 

RRC 

44 

HYI 

&DIG3 

45 

CALL 

OUTIT 

46 

RET 

49 

(The  revere#  of  thle  peg#  ie  blank) 


INITIAL  DISTRIBUTION 


HQ  USAF/LEY  1 
HQ  USAF/LEE  1 
OSAF/MIQ  1 
HQ  AFSC/DE  1 
HQ  AFSC/SD  1 
HQ  USAFA/DE  1 
HQ  USAFA/Library  1 
HQ  USAF/RD  1 
OSAF/^i)  1 
AFOc:t/CC  1 
AUL/LSE  1 
AFAPL/POE  1 
OASD/fMRASL)  EES  1 
US  ARMY/ DAEN -RDM  1 
AFIT  Library  1 
AFIT/DE  1 
NCEL,  Code  25 111  1 
DDC/TCA  2 
AFESC/DEB  2 
US  ARMY  FESA  1 
AFESC/TST  2 
AFESC/RDX  1 
AFESC/RD V  1 
AFESC/RDVA  15 
AD/DL  1 
AFAPL/STINFO  2 
AFAL/TSR  1 
AFAPL/POE-1  1 
DOE/ET-SO  2 
DOE/CS  2 
DOE/ET  2 


i 


51 

(The  reverse  of  this  page  is  blank) 


